home *** CD-ROM | disk | FTP | other *** search
/ Acorn RISC PD-CD 1 / Acorn RISC PD-CD 1.iso / languages / perl / examples / uuencode < prev   
Encoding:
Text File  |  1991-02-21  |  489 b   |  27 lines
  1. # uuencode in perl
  2.  
  3. sub encode
  4. {
  5.     local ($input, $output) = @_;
  6.     local ($n, $row, $uline);
  7.  
  8.     open(IN, $input) || die "Cannot open $input: $!\n";
  9.     open(OUT, ">$output") || die "Cannot open $output: $!\n";
  10.  
  11.     printf OUT "begin 644 %s\n", $input;
  12.  
  13.     while (($n = read(IN, $row, 45)) > 0)
  14.     {
  15.         $uline = pack("u", $row);
  16.         $uline =~ tr/ /`/;
  17.         print OUT "$uline";
  18.     }
  19.     print OUT "`\nend\n";
  20.     close (IN);
  21.     close (OUT);
  22. }
  23.  
  24. die "Usage: Uuencode input output\n" unless ($#ARGV == 1);
  25.  
  26. &encode(@ARGV);
  27.